home *** CD-ROM | disk | FTP | other *** search
/ Small Time Crooks Press Kit / Small Time Crooks Press Kit.iso / pc / Small Time Crooks.dxr / Scripts_15_Next-Prev Marker.ls < prev    next >
Encoding:
Text File  |  2000-04-30  |  1.2 KB  |  52 lines
  1. property ancestor, pIncludeRolloverState, pNextPrev
  2.  
  3. on beginSprite me
  4.   if pIncludeRolloverState then
  5.     set numTrans to 3
  6.   else
  7.     set numTrans to 2
  8.   end if
  9.   set togSty to 0
  10.   set ancestor to new(script "Bitmap But 1", the spriteNum of me, numTrans, togSty)
  11. end
  12.  
  13. on MouseUpAction me
  14.   if pNextPrev = #next then
  15.     go(#next)
  16.   else
  17.     go(#previous)
  18.   end if
  19. end
  20.  
  21. on MouseDownAction me
  22.   nothing()
  23. end
  24.  
  25. on MouseEnterAction me
  26.   nothing()
  27. end
  28.  
  29. on MouseLeaveAction me
  30.   nothing()
  31. end
  32.  
  33. on getPropertyDescriptionList me
  34.   set description to [:]
  35.   addProp(description, #pNextPrev, [#default: #next, #format: #symbol, #comment: "Next or Previous", #range: [#next, #previous]])
  36.   addProp(description, #pIncludeRolloverState, [#default: 1, #format: #boolean, #comment: "Include Rollover State"])
  37.   return description
  38. end
  39.  
  40. on getBehaviorDescription me
  41.   set endChar to offset("--END OF HEADER", the text of me)
  42.   set endLine to the number of lines in char 1 to endChar of the text of me - 1
  43.   set description to line 1 to endLine of the text of me
  44.   repeat with whichLine = endLine down to 1
  45.     if line whichLine of description = EMPTY then
  46.       delete line whichLine of description
  47.     end if
  48.   end repeat
  49.   delete line 1 of description
  50.   return description
  51. end
  52.